www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/reg.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<!--#include file=inc/Email_Cls.asp-->
<!--#include file=md5.asp-->
<%
'=========================================================
' File: reg.asp
' Version:3.0
' Date: 2005-11-7
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
dim Viptj
Viptj=checkStr(request("Viptj"))
call nav()
if Cint(Regclose)=1 then
stats="系统错误信息"
Errmsg="<br><li>本网站暂时停止注册。"
'call head_var("","")
call MsLove_error()
else
if request("action")="apply" then
stats="填写资料"
'call head_var("会员注册","reg.asp")
call reg_2()
elseif request("action")="save" then
stats="提交注册"
'call head_var("会员注册","reg.asp")
call reg_3()
if founderr then call MsLove_error()
else
stats="注册协议"
'call head_var("会员注册","reg.asp")
call reg_1()
end if
end if
call footer()
call activeonline()
sub reg_1()%>
<script>
function radioclick()
{
if (form.radiobutton.checked)
form.Submit2.disabled=false;
else
form.Submit2.disabled=true;
}
function winopen()
{
var x_pos=(window.screen.width-650)/2;
var y_pos=(window.screen.height-550)/2;
window.open("agreement.asp?id=4","","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=760,height=500,left="+x_pos+",top="+y_pos);
}
</script>
<TABLE width=750
border=0 align=center cellPadding=0 cellSpacing=0 bgColor=#ffffff dwcopytype="CopyTableRow">
<TBODY>
<TR>
<TD align=right background=skins/21cn/regbg.gif colSpan=2><IMG
height=50 src="skins/21cn/reg.gif" width=227 border=0></TD></TR></TBODY></TABLE>
<table border="0" align="center" cellpadding=3 cellspacing=1>
<tr>
<td height="28" align="center"><TABLE cellSpacing=8 cellPadding=2 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD background=skins/21cn/reg_bg1.gif><IMG height=52
src="skins/21cn/reg_0_r3_c3.gif"
border=0></TD></TR></TBODY></TABLE></td>
</tr>
<tr>
<td align="center" bgcolor="#eeeeee">
<table width="98%" border="0" class=bor4 cellSpacing=3 cellPadding=2>
<form name="form" method="post" action="reg.asp?action=apply&Viptj=<%=Viptj%>">
<tr>
<td height="188" bgcolor="#eeeeee"><b>继续注册前请先阅读<%=webname%>交友协议</b>
<BR><BR>
欢迎您加入<%=webname%>——爱情交友平台，<%=webname%>为公共交友，为维护网上公共秩序和社会稳定，请您自觉遵守以下条款：
<BR>
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息：
<BR><BR>
（一）煽动抗拒、破坏宪法和法律、行政法规实施的；<BR>
（二）煽动颠覆国家政权，推翻社会主义制度的；<BR>
（三）煽动分裂国家、破坏国家统一的；<BR>
（四）煽动民族仇恨、民族歧视，破坏民族团结的；<BR>
（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；<BR>
（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<BR>
（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；<BR>
（八）损害国家机关信誉的；<BR>
（九）其他违反宪法和法律行政法规的；<BR>
（十）进行商业广告行为的。
<BR><BR>
二、互相尊重，对自己的言论和行为负责。</td>
</tr>
<tr>
<td height="20" bgcolor="#eeeeee"><input type="checkbox" name="radiobutton" value="radiobutton" onClick="radioclick();">
<font color="747474">我已经认真阅读</font><a href="javascript:winopen();" ><font color="#FF6600"><<<%=webname%>普通会员协议>></font></a><font color="747474">并同意该协议！</font></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#eeeeee">
<input type="submit" name="Submit2" value="我要注册" disabled>
<input type="button" name="Submit3" value="看看再说" onClick="window.close();">
</td>
</tr></form>
</table></td>
</tr>
</table>
<%end sub
sub reg_2()%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
<TABLE width=750
border=0 align=center cellPadding=0 cellSpacing=0 bgColor=#ffffff dwcopytype="CopyTableRow">
<TBODY>
<TR>
<TD align=right background=skins/21cn/regbg.gif colSpan=2><IMG
height=50 src="skins/21cn/reg.gif" width=227 border=0></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=1 width="750" align=center
border=0>
<TBODY>
<TR>
<TD background=skins/21cn/reg_bg1.gif><IMG height=52
src="skins/21cn/reg_1_0.gif"
border=0></TD></TR></TBODY></TABLE>
<table width="750" border="0" align=center class=bor4 cellSpacing=1 cellPadding=1><FORM name=theForm action=reg.asp?action=save&Viptj=<%=Viptj%> method=post>
<TBODY>
<%dim Reguserlens
Reguserlens=split(Reguserlen,"|")%>
<TD width=40% bgcolor="#eeeeee"><B>用户名</B>：<BR>
注册用户名长度限制为<%=Reguserlens(0)%>－<%=Reguserlens(1)%>字节</TD>
<TD bgcolor="#eeeeee"> <input class=2 maxLength=20 size=30 name=Username>
*</TD>
</TR>
<%if Cint(Codeshow(0))=1 then%>
<TR>
<TD width=40% height="37" bgcolor="#eeeeee"><strong>请输入验证码：</strong></TD>
<TD bgcolor="#eeeeee"> <input type="text" name="codestr" maxlength="4" size="4"> <img src="Getcode.asp" height="18" alt="验证码,看不清楚?请点击刷新验证码"
style="cursor : pointer;" onclick="this.src='Getcode.asp'" /></TD>
</TR>
<%end if%>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>性别</B>：<BR>
请选择您的性别</font></TD>
<TD bgcolor="#eeeeee"> <INPUT type=radio CHECKED value=1 name=Usersex> <IMG src=images/Male.gif align=absMiddle>男孩
<INPUT type=radio value=0 name=Usersex> <IMG src=images/Female.gif align=absMiddle>女孩</font>*</TD>
</TR>
<tr>
<td width=41% bgcolor="#eeeeee"><B>生日</B><BR>
请输入正确的生日，享受系统带给你更多的乐趣！</td>
<td width=60% bgcolor="#eeeeee"> <input name=birthday type=text onfocus="show_cele_date(birthday,'','',birthday)" size="20"> *
</td>
</tr>
<%if Rndpass=0 then%>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>密码(至少6位)</B>：<BR>
请输入密码，区分大小写。<BR>
请不要使用任何类似 '*'、' ' 或 HTML 字符 </TD>
<TD bgcolor="#eeeeee"> <input name=Password type=password class=2 id="Password" size=30 maxLength=16>
* </TD>
</TR>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>密码(至少6位)</B>：<BR>
请再输一遍确认</TD>
<TD bgcolor="#eeeeee"> <input name=Passwordc type=password class=2 id="Passwordc" size=30 maxLength=16>
* </TD>
</TR>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>密码问题</B>：<BR>
忘记密码的提示问题</TD>
<TD bgcolor="#eeeeee"> <input name=Quesion type=text class=2 id="Quesion" size=30>
* </TD>
</TR>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>问题答案</B>：<BR>
忘记密码的提示问题答案，用于取回交友密码</TD>
<TD bgcolor="#eeeeee"> <input name=Answer type=text class=2 id="Answer" size=30>
</TD>
</TR>
<%else%>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>密码问题</B>：<BR>
忘记密码的提示问题</TD>
<TD bgcolor="#eeeeee"> <input name=Quesion type=text class=2 id="Quesion" size=30>
* </TD>
</TR>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>问题答案</B>：<BR>
忘记密码的提示问题答案，用于取回交友密码</TD>
<TD bgcolor="#eeeeee"> <input name=Answer type=text class=2 id="Answer" size=30>
</TD>
</TR>
<TR align="center">
<TD height="34" colspan="2" bgcolor="#eeeeee"><font color="#FF0000">本站开启随机注册密码，请注册完之后接收注册邮件，获取密码！</font></TD>
</TR>
<%end if%>
<TR>
<TD width=40% bgcolor="#eeeeee"><B>Email地址</B>：<BR>
<%dim Userattrs,usermoney
Userattrs=split(Userattr,"|")
if Cint(Userattrs(0))=1 then
usermoney=Cint(Userattrs(1))
else
usermoney=0
end if%>
请输入有效的邮件地址
，这将使您获得交友中心赠送的金钱点数：<font color="#ff0000"><b><%=usermoney%></b></font> 点</font>。</TD>
<TD bgcolor="#eeeeee"> <input class=2 maxLength=50 size=30 name=Usermail>
*
<input class=2 type=button value='检测帐号' name=Button onclick=gopreview()></TD>
</TR>
<TR>
<TD bgcolor="#eeeeee" colspan="2" align=center height="34"><font color="#FF6600">请您认真填写以下详细信息，未来意中人对您的第一印象也许就从这里产生。</font></TD>
</TR>
</tbody>
</table>
<table align=center width=750 class=bor4 cellSpacing=1 cellPadding=1 id=adv style="DISPLAY: none">
<TBODY>
<tr>
<td height=28 align=left valign=middle colspan=2><b>基本信息</b></td>
<tr>
<TR>
<%dim OpenFaces
OpenFaces=split(OpenFace,"|")%>
<TD width=41% class=tablebody1><B>头 像</B>：<BR>
您可以选择一个个性图片，当你发表时将显示在您的名字下方。<BR>
<%if Cint(OpenFaces(0))=1 then%>
如果你填写了下面的自定义头像部分，那么你的头像以自定义的为准。否则，请你留空自定义头像的所有栏目！<BR>
<B>关于自定义头像</B>：<BR>
你也可以在这里给出你自定义头像的 URL 地址，头像的高度和宽度(像素)。 如果不想要自定义头像，请将相应栏目全部留空！
<%end if%></TD>
<TD width="*" >
<table border="0" cellpadding="0" cellspacing="1" width="98%" >
<tr><td width="*" class=tablebody1>头像选择 <select name=userface size=1 id="userface" style="font-family:arial" onChange="document.images['face'].src=options[selectedIndex].value; parent.document.theForm.myface.value=options[selectedIndex].value">
<%for i=1 to Cint(OpenFaces(2))%>
<option value="images/userface/image<%=(i)%>.gif">image<%=(i)%>.gif</option>
<%next%>
</select> <a href=allface.asp target=_blank>查看所有头像</a> </td><td width="180" rowspan="2" valign=top align=center>
<img id=face src=images/userface/image1.gif>
</td>
</TR>
<%if Cint(OpenFaces(0))=1 then%>
<TR>
<TD width="*" class=tablebody1><B>自定义头像</B>：<br>
图像位置：
<input type=text name=myface size=30 maxlength=100> 完整Url地址<br>
宽 度：
<input class=2 type=TEXT name=Facewidth size=3 maxlength=3 value="<%=OpenFaces(3)%>">
0---<%=OpenFaces(3)%>的整数<br>
高 度：
<input class=2 type=TEXT name=Faceheight size=3 maxlength=3 value="<%=OpenFaces(4)%>">
0---<%=OpenFaces(4)%>的整数<br> </TD>
</TR>
<%end if%>
</table></td>
<%if Cint(Signset)=1 then%>
<tr>
<td width=41% height="13" bgcolor="#eeeeee"><B>签名</B>：<BR>
最多300字节<BR>
文字将出现在您发表的文章的结尾处。体现您的个性。</td>
<td bgcolor="#eeeeee"><TEXTAREA name=Signature rows=5 wrap=PHYSICAL cols=60></TEXTAREA></td>
</tr>
<%end if%>
<tr>
<td width=41% height="30" bgcolor="#eeeeee"><b>主页地址：</b></td>
<td width=60% bgcolor="#eeeeee"><INPUT maxLength=80 size=50 name=homepage>
</tr>
<tr>
<td height="30" bgcolor="#eeeeee"><B>OICQ号码：</B><BR>
如果您有 OICQ，请输入号码。此项可选</td>
<td width=60% bgcolor="#eeeeee"><input class=2 maxLength=20 size=30 name=Oicq></tr>
<TR>
<TD width=41% bgcolor="#eeeeee"><B>ICQ号码：</B><BR>
如果您有 ICQ，请输入号码。此项可选</TD>
<TD width=60% bgcolor="#eeeeee"><input class=2 maxLength=20 size=30 name=Icq>
</TD>
</TR>
<TR>
<TD width=41% bgcolor="#eeeeee"><B>MSN号码：</B><BR>
如果您有 MSN，请输入。此项可选</TD>
<TD width=60% bgcolor="#eeeeee"><input class=2 maxLength=70 size=30 name=Msn>
</TD>
</TR>
<TR>
<TD width=41% bgcolor="#eeeeee"><strong>UserAim号码：</strong><br>
如果您有 UserAim，请输入号码。此项可选</TD>
<TD width=60% bgcolor="#eeeeee"><INPUT maxLength=70 size=30 name=Aim></TD>
</TR>
<TR >
<TD width=41% bgcolor="#eeeeee"><strong>Yahoo号码：</strong><br>
如果您有 Yahoo，请输入号码。此项可选</TD>
<TD width=60% bgcolor="#eeeeee"><INPUT maxLength=70 size=30 name=Yahoo></TD>
</TR>
<TR >
<TD bgcolor="#eeeeee"><strong>UC号码：</strong><br>
如果您有 UC，请输入号码。此项可选</TD>
<TD width=60% bgcolor="#eeeeee"><INPUT maxLength=70 size=30 name=Uc></TD>
</TR>
<tr>
<td width=41% bgcolor="#eeeeee"><B>选择Cookie的保留时间</B>：<BR>
登陆交友信息保留时间，在这个时间内重复登陆交友不需要重新登陆</font></td>
<td width=60% bgcolor="#eeeeee"> <input type=radio name=usercookies value=1 checked>
<font color=red>1天</font> <input type=radio name=usercookies value=2>
1个月
<input type=radio name=usercookies value=3>
1年
<input type=radio name=usercookies value=0>
不保留 </td>
</tr>
<tr>
<td width=41% bgcolor="#eeeeee"><B>我的模板</B>：<BR>
本系统允许选择个人展示页模板，选择属于自己的个性模板</td>
<td width=60% bgcolor="#eeeeee">
<select name=TemplateId>
<%dim rst
set rst=server.createobject("adodb.recordset")
sql="select Tempname,id from Ms_Template where Levels=0"
rst.Open sql,conn,1,1
if not (rst.eof and rst.bof) then
do while not rst.eof%>
<option value="<%=rst("id")%>"><%=rst("Tempname")%></option>
<%rst.movenext
loop
else
response.Write("<option value=1>默认模板</option>")
end if
rst.close%>
</select></td>
</tr>
<tr>
<td height=28 align=left valign=middle colspan=2><b>交友选项信息</b>（以下内容建议填写）</td>
<tr>
<td height="26" bgcolor="#eeeeee"><strong>健康程度：</strong></td>
<td width=60% bgcolor="#eeeeee"><select name=health>
<option value=""></option>
<option value=体弱多病>体弱多病</option>
<option value=体质一般>体质一般</option>
<option value=很健康>很健康</option>
<option value=棒极了>棒极了</option>
</select></td>
</tr>
<tr>
<td height="3" bgcolor="#eeeeee"><strong>身 高：</strong></td>
<td width=60% bgcolor="#eeeeee"><input name=Pheight type=text size=6 maxlength="4">
厘米</td>
</tr>
<tr>
<td height="3" bgcolor="#eeeeee"><strong>体 重：</strong></td>
<td bgcolor="#eeeeee"><input name=Pweight type=text size=6 maxlength="4" >
公斤</td>
</tr>
<tr>
<td height="1" bgcolor="#eeeeee"><strong>体 型：</strong></td>
<td bgcolor="#eeeeee"><SELECT name=figure>
<option></option>
<option value=瘦>瘦</option>
<option value=较瘦>较瘦</option>
<option value=匀称>匀称</option>
<option value=苗条>苗条</option>
<option value=高挑>高挑</option>
<option value=丰满>丰满</option>
<option value=健壮>健壮</option>
<option value=魁梧>魁梧</option>
<option value=较胖>较胖</option>
<option value=胖>胖</option>
</SELECT> <b>相貌自评：</b><select name=mylook>
<option></option>
<option value=1>1</option>
<option value=2>2</option>
<option value=3>3</option>
<option value=4>4</option>
<option value=5>5</option>
<option value=6>6</option>
<option value=7>7</option>
<option value=8>8</option>
<option value=9>9</option>
<option value=10>10</option>
</select>
(10分为满分) </font></td>
</tr>
<tr>
<td height="1" bgcolor="#eeeeee"><strong>是否吸烟：</strong></td>
<td bgcolor="#eeeeee"><SELECT name=fug>
<option></option>
<option value=厌恶>厌恶</option>
<option value=不吸>不吸</option>
<option value=偶尔>偶尔</option>
<option value=经常>经常</option>
</SELECT> <b>收入水平：</b>
<select name=income>
<option></option>
<option value=1000以下>1000以下</option>
<option value=1000-2000>1000-2000</option>
<option value=2000-3000>2000-3000</option>
<option value=3000-4000>3000-4000</option>
<option value=4000-5000>4000-5000</option>
<option value=5000-6000>5000-6000</option>
<option value=6000-7000>6000-7000</option>
<option value=7000-10000>7000-10000</option>
<option value=10000以上>10000以上</option>
</select></td>
</tr>
<tr>
<td height="3" bgcolor="#eeeeee"><strong>是否喝酒：</strong></td>
<td bgcolor="#eeeeee"><SELECT name=alcohol>
<option></option>
<option value=厌恶>厌恶</option>
<option value=不喝>不喝</option>
<option value=偶尔>偶尔</option>
<option value=经常>经常</option>
</SELECT> <b>住房状况：</b><select name=houses>
<option></option>
<option value=自有房>自有房</option>
<option value=与人合租>与人合租</option>
<option value=独自租房>独自租房</option>
<option value=与父母同住>与父母同住</option>
<option value=住亲朋家>住亲朋家</option>
<option value=住单位房>住单位房</option>
</select></td>
</tr>
<tr>
<td height="16" bgcolor="#eeeeee"><strong>掌握语言：</strong></td>
<td bgcolor="#eeeeee"><input type=checkbox name=language value=普通话 checked>普通话
<input type=checkbox name=language value=上海话>上海话
<input type=checkbox name=language value=广东话>广东话
<input type=checkbox name=language value=其他方言>其他方言
<input type=checkbox name=language value=英语>英语
<br><input type=checkbox name=language value=日语>日语
<input type=checkbox name=language value=韩语>韩语
<input type=checkbox name=language value=法语>法语
<input type=checkbox name=language value=德语>德语
<input type=checkbox name=language value=俄语>
俄语
<input type=checkbox name=language value=其它>其它</td>
</tr>
<tr>
<td height=28 align=left valign=middle colspan=2><b>个人真实情况</b></td>
<tr>
<td height=2 valign=top bgcolor="#eeeeee" width=41% ><b>真实姓名：</b> <input class=2 type=text name=realname size=18>
</td>
<td height=71 align=left valign=top bgcolor="#eeeeee" rowspan=14 width=60% >
<table width=100% border=0 cellspacing=0 cellpadding=5>
<tr>
<td bgcolor="#eeeeee"><b>性 格： </b> <br> <% dim KidneyType,theKidney
KidneyType="多重性格,乐天达观,成熟稳重,幼稚调皮,温柔体贴,活泼可爱,普普通通,内向害羞,外向开朗,心地善良,聪明伶俐,善解人意,风趣幽默,思想开放,积极进取,小心谨慎,郁郁寡欢,正义正直,悲观失意,好吃懒做,处事洒脱,疑神疑鬼,患得患失,异想天开,多愁善感,淡泊名利,见利忘义,瞻前顾后,循规蹈矩,热心助人,快言快语,少言寡语,爱管闲事,追求刺激,豪放不羁,狡猾多变,贪小便宜,见异思迁,情绪多变,水性扬花,重色轻友,胆小怕事,积极负责,勇敢正义,聪明好学,实事求是,务实实际,老实巴交,圆滑老练,脾气暴躁,慢条斯理,诚实坦白,婆婆妈妈,急性子"
theKidney=split(KidneyType, ",")
for i = 0 to ubound(theKidney)
response.write "<input type=""checkbox"" name=""character"" value="""&trim(theKidney(i))&""" "
response.write ">"&trim(theKidney(i))&" "
if ((i+1) mod 5)=0 then response.write "<br>" '每行显示六个性格进行换行
next
%></td>
</tr>
<tr>
<td bgcolor="#eeeeee"><b>个人独白： </b><br> <textarea name=personal cols="70" rows=6></textarea><br> 请您认真填写，未来意中人对您的第一印象也许就从这里产生。请不要为了凑字数而重复粘贴。您的真诚，也许就会收获你一生的幸福！注意：不要留任何联系方式！
</td>
</tr>
</table></td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>国 家：</b> <b>
<input class=2 type=text name=country size=18>
</b> </td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>联系电话：</b> <b>
<input name=userphone type=text class=2 size=18 maxlength="20">
</b> </td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>通信地址：</b> <b>
<input class=2 type=text name=address size=30>
</b> </td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>省份：</b> <input type=text name=province size=10>
<select name="selectp" onChange="selectcityarea('selectp','selectc','theForm');theForm.province.value=this.value;">
<option value="0" selected>请选择..</option>
</select> </td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>城市： </b> <input type=text name=city size=10>
<select name="selectc" onChange="theForm.city.value=this.value;">
<option value="0" selected>请选择..</option>
</select> </td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>生肖:</b> <select size=1 name=shengxiao>
<option></option>
<option value=鼠>鼠</option>
<option value=牛>牛</option>
<option value=虎>虎</option>
<option value=兔>兔</option>
<option value=龙>龙</option>
<option value=蛇>蛇</option>
<option value=马>马</option>
<option value=羊>羊</option>
<option value=猴>猴</option>
<option value=鸡>鸡</option>
<option value=狗>狗</option>
<option value=猪>猪</option>
</select><b> 星座:</b><select name=Userstars size=1 id="Userstars">
<option></option>
<option value=白羊座>白羊座</option>
<option value=金牛座>金牛座</option>
<option value=双子座>双子座</option>
<option value=巨蟹座>巨蟹座</option>
<option value=狮子座>狮子座</option>
<option value=处女座>处女座</option>
<option value=天秤座>天秤座</option>
<option value=天蝎座>天蝎座</option>
<option value=射手座>射手座</option>
<option value=摩羯座>摩羯座</option>
<option value=水瓶座>水瓶座</option>
<option value=双鱼座>双鱼座</option>
</select></td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>血型:</b> <select size=1 name=blood>
<option selected></option>
<option value=A>A</option>
<option value=B>B</option>
<option value=AB>AB</option>
<option value=O>O</option>
<option value=其他>其他</option>
</select><b> 民族</b><select name=Folk>
<option></option>
<option value=汉族>汉族</option>
<option value=藏族>藏族</option>
<option value=朝鲜族>朝鲜族</option>
<option value=蒙古族>蒙古族</option>
<option value=回族>回族</option>
<option value=满族>满族</option>
<option value=维吾尔族>维吾尔族</option>
<option value=壮族>壮族</option>
<option value=彝族>彝族</option>
<option value=苗族>苗族</option>
<option value=其他民族>其他民族</option>
</select></td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>信 仰：</b> <select size=1 name=belief>
<option selected></option>
<option value=佛教>佛教</option>
<option value=道教>道教</option>
<option value=基督教>基督教</option>
<option value=天主教>天主教</option>
<option value=回教>回教</option>
<option value=无神论者>无神论者</option>
<option value=共产主义者>共产主义者</option>
<option value=其他>其他</option>
</select></td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>职业类别：</b> <select name=occupation>
<option> </option>
<option value=学生>学生</option>
<option value=高层管理>高层管理</option>
<option value=中层干部>中层干部</option>
<option value=私营业主>私营业主</option>
<option value=个体业主>个体业主</option>
<option value=销售>销售</option>
<option value=市场>市场</option>
<option value=策划>策划</option>
<option value=研发>研发</option>
<option value=技术>技术</option>
<option value=科研>科研</option>
<option value=设计>设计</option>
<option value=生产采购>生产采购</option>
<option value=财务>财务</option>
<option value=人事行政>人事行政</option>
<option value=后勤>后勤</option>
<option value=文秘助理>文秘助理</option>
<option value=咨询培训>咨询培训</option>
<option value=普通职员>普通职员</option>
<option value=高级职员>高级职员</option>
<option value=公务员>公务员</option>
<option value=机关干部>机关干部</option>
<option value=教师>教师</option>
<option value=服务>服务</option>
<option value=工人>工人</option>
<option value=技工>技工</option>
<option value=农民>农民</option>
<option value=军人>军人</option>
<option value=警察>警察</option>
<option value=医生>医生</option>
<option value=护士>护士</option>
<option value=艺术>艺术</option>
<option value=演艺>演艺</option>
<option value=记者编辑>记者编辑</option>
<option value=体育>体育</option>
<option value=律师>律师</option>
<option value=专业人士>专业人士</option>
<option value=自由职业>自由职业</option>
<option value=待业>待业</option>
<option value=退休>退休</option>
<option value=其他职业>其他职业</option>
</select>
<tr> <td valign=top bgcolor="#eeeeee" ><b>职称：</b><input name=dutytype type="text" size="24" maxlength="8"></td></tr>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>婚姻状况：</b> <select size=1 name=marital>
<option selected></option>
<option value=未婚>未婚</option>
<option value=已婚>已婚</option>
<option value=离异>离异</option>
<option value=丧偶>丧偶</option>
</select></td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>最高学历：</b> <select size=1 name=education>
<option></option>
<option value=小学>小学</option>
<option value=初中>初中</option>
<option value=高中>高中</option>
<option value=中专>中专</option>
<option value=大专>大专</option>
<option value=大学>大学</option>
<option value=硕士>硕士</option>
<option value=博士>博士</option>
<option value=其它>其它</option>
</select></td>
</tr>
<tr>
<td valign=top bgcolor="#eeeeee" width=41% ><b>毕业院校：</b> <input class=2 type=text name=college size=30></td>
</tr>
</TBODY>
</TABLE>
<table width="100%" align=center cellpadding=0 cellspacing=0 class=tableborder1>
<tr>
<td width=25% height=24 ><INPUT id=advshow name=advshow type=checkbox value=1 onclick=showadv()><span id=advance>显示高级用户设置选项</span> </td>
<td width=75% height="28" >
<input class=2 type=submit value="注 册" name=Submit><input class=2 type=reset value="清 除" name=Submit2></td>
</tr>
</form>
</table>
<form name=preview action=chkreg.asp method=post target=preview_page>
<input type=hidden name=Username value=>
<input type=hidden name=Usermail value=>
</form>
<script>
function gopreview()
{
document.forms[1].Username.value=document.forms[0].Username.value;
document.forms[1].Usermail.value=document.forms[0].Usermail.value;
var popupWin = window.open('preview.asp', 'preview_page', 'scrollbars=yes,width=500,height=200');
document.forms[1].submit()
}
first("selectp","selectc","theForm",0,0);
function showadv(){
if (document.theForm.advshow.checked == true) {
adv.style.display = "";
advance.innerText="关闭高级用户设置选项";
}else{
adv.style.display = "none";
advance.innerText="显示高级用户设置选项";
}
}
</script>
<%
end sub
sub reg_3()
dim Username,Usersex,Viptj
dim Useremail,Userface,Faceinfo,Userpoint,Userfriends
dim UserIM,Usersign,showRe,birthday,Facewidth,Faceheight
dim mailbody,sendmsg
dim Quesion,Answer,Topic,CodeStr
dim userinfo
dim userclass,splitwords
if not isnull(session("regtime")) or cint(Regtimes)>0 then'限制注册时间
if DateDiff("s",session("regtime"),Now())<cint(Regtimes) then
ErrMsg=ErrMsg+"<Br>"+"<li>本交友限制每次注册距离时间为"&Regtimes&"秒，请稍后注册。"
FoundErr=True
end if
end if
if Not ChkPost then'查检提交数据
ErrMsg=ErrMsg+"<Br>"+"<li>您提交的数据不合法，请不要从外部提交发言。"
FoundErr=True
end if
Viptj=checkStr(request("Viptj"))
if Viptj="" then
Viptj=0
end if
dim Reguserlens
Reguserlens=split(Reguserlen,"|")
if trim(request("Username"))="" or strLength(trim(request("Username")))>Cint(Reguserlens(1)) or strLength(trim(request("Username")))<Cint(Reguserlens(0)) then
errmsg=errmsg+"<br>"+"<li>请输入您的用户名(长度不能大于"&Reguserlens(0)&"小于"&Reguserlens(1)&")。"
founderr=true
else
username=trim(request("Username"))
end if
if Instr(trim(request("Username")),"=")>0 or Instr(trim(request("Username")),"%")>0 or Instr(trim(request("Username")),chr(32))>0 or Instr(trim(request("Username")),"?")>0 or Instr(trim(request("Username")),"&")>0 or Instr(trim(request("Username")),";")>0 or Instr(trim(request("Username")),",")>0 or Instr(trim(request("Username")),"'")>0 or Instr(trim(request("Username")),",")>0 or Instr(trim(request("Username")),chr(34))>0 or Instr(trim(request("Username")),chr(9))>0 or Instr(trim(request("Username")),"")>0 or Instr(trim(request("Username")),"$")>0 then
errmsg=errmsg+"<br>"+"<li>用户名中含有非法字符。"
founderr=true
else
username=trim(request("Username"))
end if
splitwords=split(RSplitWord,",")
for i = 0 to ubound(splitwords)
if instr(Username,splitwords(i))>0 then
errmsg=errmsg+"<br>"+"<li>您输入的用户名包含系统禁止注册字符。"
founderr=true
exit for
end if
next
if Cint(Codeshow(0))=1 then
if Not CodeIsTrue() then
errmsg=errmsg+"<br>"+"<li>验证码校验失败，请返回刷新页面后再输入验证码。"
founderr=true
end if
end if
if request("Usersex")=0 or request("Usersex")=1 then
Usersex=request("Usersex")
else
Usersex=1
end if
dim Password1,Password2,Password,rndnum,num1
if cint(Rndpass)=1 then'密码验证函数
Randomize
Do While Len(rndnum)<8
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
Password=md5(rndnum,16)
else
if request("Password")="" or len(request("Password"))>20 or len(request("Password"))<6 then
errmsg=errmsg+"<br>"+"<li>请输入您的密码(长度不能大于20小于6)。"
founderr=true
else
Password1=request("Password")
end if
if request("Passwordc")="" or strLength(request("Passwordc"))>20 or len(request("Passwordc"))<6 then
errmsg=errmsg+"<br>"+"<li>请输入确认密码(长度不能大于20小于6)。"
founderr=true
else
Password2=request("Passwordc")
end if
if Password1<>Password2 then
errmsg=errmsg+"<br>"+"<li>您输入的密码和确认密码不一致。"
founderr=true
else
Password=md5(Password2,16)
end if
end if
if request("quesion")="" or strLength(request("quesion"))>50 then
errmsg=errmsg+"<br>"+"<li>请输入密码提示问题（长度不大于50个字符）。"
founderr=true
else
quesion=checkStr(trim(request("quesion")))
end if
if request("answer")="" or strLength(request("answer"))>50 then
errmsg=errmsg+"<br>"+"<li>请输入密码提示问题答案（长度不大于50个字符）。"
founderr=true
else
answer=md5(checkStr(trim(request("answer"))),16)
end if
if IsValidEmail(trim(request("Usermail")))=false then
errmsg=errmsg+"<br>"+"<li>您的Email有错误。"
founderr=true
else
if not isnull(SplitEmail) and SplitEmail<>"" and SplitEmail<>"0" then
Dim SplitUserEmail
SplitUserEmail=split(SplitEmail,"|")
For i=0 to ubound(SplitUserEmail)
if instr(request("Usermail"),SplitUserEmail(i))>0 then
errmsg=errmsg+"<br>"+"<li>您填写的Email地址含有系统禁止字符。"
founderr=true
exit for
end if
Next
end if
Useremail=checkStr((request("Usermail")))
end if
dim OpenFaces'头像处理
OpenFaces=split(OpenFace,"|")
if request.form("myface")<>"" and Cint(OpenFaces(0))=1 then
if request("Facewidth")="" or request("Faceheight")="" then
errmsg=errmsg+"<br>"+"<li>请输入图片的宽度和高度。"
founderr=true
elseif not isInteger(request("Facewidth")) or not isInteger(request("Faceheight")) then
errmsg=errmsg+"<br>"+"<li>您输入的字符不合法。"
founderr=true
elseif Cint(request("Facewidth"))>Cint(OpenFaces(3)) then
errmsg=errmsg+"<br>"+"<li>您输入的图片宽度不符合标准。"
founderr=true
elseif Cint(request("Faceheight"))>Cint(OpenFaces(4)) then
errmsg=errmsg+"<br>"+"<li>您输入的图片高度不符合标准。"
founderr=true
else
if Cint(OpenFaces(0))=0 then
if instr(lcase(request("myface")),"http://")>0 or instr(lcase(request("myface")),"www.")>0 then
errmsg=errmsg+"<br>"+"<li>本交友设置了不允许连接外部网址做头像。"
founderr=true
end if
end if
Userface=request("myface")
end if
else
if request("Userface")<>"" then
Userface=request("Userface")
end if
end if
Facewidth=request("Facewidth")
Faceheight=request("Faceheight")
birthday=checkstr(trim(request("birthday")))
if birthday="" or not isdate(birthday) then
errmsg=errmsg+"<br>"+"<li>生日为必填项，请输入。"
founderr=true
end if
if strLength(request("Signature"))>250 then
errmsg=errmsg+"<br>"+"<li>签名只能在250个字符以内。"
founderr=true
end if
if strLength(request("personal"))>250 then
errmsg=errmsg+"<br>"+"<li>个人独白只能在250个字符以内。"
founderr=true
end if
Userfriends=Request.Form("health") & "|||" & checkreal(Request.Form("Pweight")) & "|||" & Request.Form("figure") & "|||" & Request.Form("mylook")& "|||" & Request.Form("fug")& "|||" & Request.Form("income")& "|||" & Request.Form("alcohol")& "|||" & Request.Form("houses")& "|||" & checkreal(Request.Form("language"))
Userinfo=checkreal(Request.Form("realname")) & "|||" & checkreal(Request.Form("character")) & "|||" & Htmlencode(trim(checkreal(Request.Form("personal")))) & "|||" & checkreal(Request.Form("country")) & "|||" & checkreal(Request.Form("province")) & "|||" & checkreal(Request.Form("city")) & "|||" & Request.Form("shengxiao") & "|||" & Request.Form("Userstars") & "|||" & Request.Form("blood") & "|||" & Request.Form("Folk") & "|||" & Request.Form("belief") & "|||" & Request.Form("occupation") & "|||" & checkreal(Request.Form("dutytype"))& "|||" & Request.Form("marital") & "|||" & Request.Form("education") & "|||" & checkreal(Request.Form("college")) & "|||" & checkreal(Request.Form("userphone")) & "|||" & checkreal(Request.Form("address"))
UserIM=checkreal(Request.form("homepage")) &"|||"& checkreal(Request.form("Oicq")) &"|||"& checkreal(Request.form("Icq")) &"|||"& checkreal(Request.form("msn")) &"|||"& checkreal(Request.form("yahoo")) &"|||"& checkreal(Request.form("aim")) &"|||"& checkreal(Request.form("uc"))
'以下为存入数据库操作
if founderr then exit sub
dim titlepic,UserGroupID
Set Rs=Conn.Execute("Select top 1 UserTitle,GroupPic,UserGroupID,IsSetting,ParentGID From Ms_UserGroups Where ParentGID=3 Order By MinArticle asc")
userclass=rs(0)
titlepic=rs(1)
If Regchecked=1 Then
UserGroupID = 5
else
UserGroupID = Rs(2)
end if
set rs=server.createobject("adodb.recordset")
if cint(emailctrl)=1 then
sql="select * from [Ms_user] where Username='"&username&"' or useremail='"&useremail&"'"
else
sql="select * from [Ms_user] where Username='"&username&"'"
end if
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
if cint(emailctrl)=1 then
errmsg=errmsg+"<br>"+"<li>您输入的用户名已经被注册或者已经有用户使用了您填写的电子邮件地址。"
founderr=true
exit sub
else
errmsg=errmsg+"<br>"+"<li>您输入的用户名已经被注册。"
founderr=true
exit sub
end if
else
rs.addnew
rs("UserName")=username
rs("UserPassword")=password
rs("UserEmail")=useremail
rs("Userclass")=userclass
rs("TitlePic")=titlepic
rs("UserQuesion")=quesion
rs("UserAnswer")=answer
rs("UserIM")=UserIM
rs("UserToday")="0|||0|||0"
if Request.Form("TemplateId")="" then
rs("TemplateId")=1
else
rs("TemplateId")=Request.Form("TemplateId")
end if
rs("Vipset")="0|"&Viptj&""
if Request.Form("Pheight")<>"" then
rs("Userheight")=Request.Form("Pheight")
end if
If Request.Form("Signature")<>"" Then rs("UserSign")=Htmlencode(Trim(Request.Form("Signature")))
rs("UserGroupID")=UserGroupID
rs("Lockuser")=0
rs("UserSex")=Usersex
If birthday<>"" Then rs("UserBirthday")=birthday
rs("JoinDate")=Now()
If Request.form("myface")<>"" Then
rs("UserFace")=replace(Userface,"'","")
Else
rs("UserFace")=replace(Userface,"'","")
End If
rs("Faceinfo")=Facewidth& "|||"&Faceheight
rs("UserLogins")=1
rs("LastLogin")=Now()
rs("Userfriends")=Userfriends
rs("UserInfo")=userinfo
rs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
conn.execute("UpDate Ms_Setup Set UserNum=UserNum+1,LastUser='"&username&"' where Cid=1")
conn.execute("UpDate Ms_UserGroups Set Useradd=Useradd+1 where UserGroupID="&UserGroupID&"")
End If
rs.close
If Regemail=1 and Mailtype>0 Then
on error resume next
'发送注册邮件
Dim getpass
topic="您在" & webname & "的注册资料"
If cint(Rndpass)=1 Then
getpass=htmlencode(rndnum)
Else
getpass=htmlencode(Request.form("Password"))
End If
mailbody="<html>"
mailbody=mailbody & "<title>注册信息</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & htmlencode(username)&"，您好：<br><br>"
mailbody=mailbody & "欢迎您注册交友中心，我们将提供给您最好的交友服务，拥有500万会员！<br>"
mailbody=mailbody & "下面是您的注册信息：<br>"
mailbody=mailbody & "注册名："&htmlencode(username)&"<br>"
mailbody=mailbody & "密 码："&getpass&"<br>"
mailbody=mailbody & "<br><br>"
mailbody=mailbody & "请点击下面的地址，获取交友中心赠送的金钱点数！"
mailbody=mailbody & "<a href=http://"&request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),"reg.asp","")&"activepower.asp?username="&username&" target=_blank>激活您的帐号获得交友中心赠送的金币</a><br>"
mailbody=mailbody & "<br>"
mailbody=mailbody & "<center><font color=red>再次感谢您注册本中心，让我们为您牵起生命中的另一半！</font>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "<p align=center>" & Copyright & " " & Versions & "</p>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
Dim DvEmail
Set DvEmail = New Dv_SendMail
DvEmail.SendObject = Cint(Mailtype) '设置选取组件 1=Jmail,2=Cdonts,3=Aspemail,0不支持
DvEmail.ServerLoginName = Mailuser '您的邮件服务器登录名
DvEmail.ServerLoginPass = Mailpass '登录密码
DvEmail.SendSMTP = Mailsmtp 'SMTP地址
DvEmail.SendFromEmail = Mailsend '发送来源地址
DvEmail.SendFromName = Webname '发送人信息
If DvEmail.ErrCode = 0 Then
DvEmail.SendMail useremail,topic,mailbody '执行发送邮件
If DvEmail.Count>0 Then
If cint(Rndpass)=1 Then
sendmsg="<li>您的注册信息和密码已经发往您的邮箱，请使用系统给您的密码登录。用户名:"&UserName&" 密码:"&getpass&"</li>"
Else
sendmsg="<li>您的注册信息已经发往您的邮箱，请注意查收。用户名:"&UserName&" 密码:"&getpass&"</li>"
End If
Else
sendmsg="<li>由于系统错误，不能发送注册资料到你的邮箱"&UserEmail&"里，请记住您的注册信息。用户名:"&UserName&" 密码:"&getpass&"</li>"
End If
Else
sendmsg="<li>由于系统错误，不能发送注册资料到你的邮箱"&UserEmail&"里，请记住您的注册信息。用户名:"&UserName&" 密码:"&getpass&"</li>"
End If
Set DvEmail = Nothing
Else
sendmsg = "<li>系统未开启邮件功能，请记住您的注册信息。用户名:"&UserName&" 密码:"&getpass&"</li>"
End If
If Regsendmsg=1 Then
'发送注册短信
Dim sender,title,body,UserMsg,MsgID
sender=webname
title="您在" & webname & "的注册资料"
body = webname&"全体管理人员欢迎您的到来"&chr(10)&"如有任何疑问请及时联系系统管理员。"&chr(10)&"如有任何使用上的问题请查看交友帮助。"&chr(10)&"感谢您注册本系统，让我们一起来建设这个网上家园！"&chr(10)&"请查收您的邮箱，您将会有意想不到的收获！"&chr(10)&"点击这个网址获得系统赠送的金币：<a href=http://"&request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),"reg.asp","")&"activepower.asp?username="&username&" target=_blank><font color=red>获取金币</font></a>"
sql="insert into Ms_message(incept,sender,title,content,sendtime,flag,issend) values('"&username&"','"&sender&"','"&title&"','"&body&"',"&SqlNowString&",0,1)"
conn.Execute(sql)
Set rs=conn.execute("select top 1 ID from [Ms_message] order by ID desc")
MsgID=rs(0)
Rs.close()
Set Rs=Nothing
End If
If cint(Rndpass)=1 or cint(Regchecked)=1 Then
Else
Response.Cookies(Forum_sn).path=cookiepath
Response.Cookies(Forum_sn)("username")=""
Response.Cookies(Forum_sn)("password")=""
Response.Cookies(Forum_sn)("userclass")=""
Response.Cookies(Forum_sn)("userid")=""
Response.Cookies(Forum_sn)("userhidden")=""
Response.Cookies(Forum_sn)("usercookies")=""
Dim StatUserID,UserSessionID
StatUserID = checkStr(Trim(Request.Cookies(Forum_sn)("StatUserID")))
If IsNumeric(StatUserID) = 0 or StatUserID = "" Then
StatUserID = Replace(UserTrueIP,".","")
UserSessionID = Replace(Startime,".","")
If IsNumeric(StatUserID) = 0 or StatUserID = "" Then StatUserID = 0
StatUserID = Ccur(StatUserID) + Ccur(UserSessionID)
End If
StatUserID = Ccur(StatUserID)
conn.Execute("delete from Ms_online where username='"&membername&"' Or id="&StatUserID&"")
'客人=SessionID+活动时间
Response.Cookies(Forum_sn)("StatUserID") = StatUserID
select case request("usercookies")
case 0
Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
Case 1
Response.Cookies(Forum_sn).Expires=Date+1
Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
Case 2
Response.Cookies(Forum_sn).Expires=Date+31
Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
case 3
Response.Cookies(Forum_sn).Expires=Date+365
Response.Cookies(Forum_sn)("usercookies") = request("usercookies")
end select
Response.Cookies(Forum_sn)("username") = username
Response.Cookies(Forum_sn)("password") = PassWord
Response.Cookies(Forum_sn)("userclass") = userclass
Response.Cookies(Forum_sn)("userid") = userid
Response.Cookies(Forum_sn)("userhidden") = 2
Response.Cookies(Forum_sn).path=cookiepath
membername=username
userhidden=2
MemberClass=userclass
End If
session("regtime")=Now()
%>
<meta HTTP-EQUIV=REFRESH CONTENT='2; URL=index.asp'>
<TABLE width=750
border=0 align=center cellPadding=0 cellSpacing=0 bgColor=#ffffff dwcopytype="CopyTableRow">
<TBODY>
<TR>
<TD align=right background=skins/21cn/regbg.gif colSpan=2><IMG
height=50 src="skins/21cn/reg.gif" width=227 border=0></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=1 width="750" align=center
border=0>
<TBODY>
<TR>
<TD background=skins/21cn/reg_bg1.gif><IMG height=52
src="skins/21cn/reg_1_0.gif"
border=0></TD></TR></TBODY></TABLE>
<table cellpadding=1 cellspacing=1 align=center width="750">
<tr><td><img src="Skins/21cn/reg_4.gif" width="194" height="52" border="0"></td></tr>
<tr><td bgcolor="#eeeeee"><br>
<%=sendmsg%></br>
恭喜您！您已成功注册为<%=webname%>的会员。</br>
<a href="index.asp">进入<%=webname%>交友中心</a></br>
请查看您邮件并激活相应链接获得系统赠送的金钱点数！</br>
我们将会在12小时内审核您提交的资料，如果审核通过，那么您的征友信息即会发布在 <%=webname%> 网站。
</td></tr>
</table>
<%
end sub
function checkreal(v)
dim w
if not isnull(v) then
w=replace(v,"|||","§§§")
checkreal=w
end if
end function
%>